Some Interesting Plots
# library(emojifont)
# library(ggplot2)
data_df <- data.frame(x = 1,
y = 0.75,
label=c("2024, Happy New Year"))
ggplot(data_df, aes(x, y)) +
geom_text(aes(label = label, size = 10, color = '#ede69a' )) +
geom_emoji ("dragon", color='#ede69a', size = 125, vjust = 0.7) +
labs(x = NULL, y = NULL) +
ylim(0, 1) +
theme (legend.position = "none") +
theme(panel.background = element_rect(fill = "#992615"),
panel.grid = element_blank(),
axis.text.x = element_blank(),
axis.ticks.x = element_blank(),
axis.text.y = element_blank(),
axis.ticks.y = element_blank())
# library(cowsay)
endless_horse(
what = "Hello Zehui!",
endless = F,
wait = 0.5,
what_color = "green",
horse_color = "white")
| Hello Zehui! |
\
\
\
,
_,,)\.~,,._
(()` ``)\))),,_
| \ ''((\)))),,_ ____
|6` | ''((\())) "-.____.-" `-.-,
| .'\ ''))))' \)))
| | `. '' ((((
\, _) \/ |))))
`' | (((((
\ | ))))))
`| | ,\ /((((((
| / `-.______.< \ | )))))
| | / `. \ \ ((((
| / \ | `.\ | (((
\ | | | )| | ))
| | | | || | ' [endless.horse]
| | | | || |